gov <- c(1262.99,1289.58,1338.28,1376.74,1393.67,1407,1403.51,1379.58,1418.82,1467.05,1466.85,1522.36,1567.11,1583.68,1646.51,1725.1,1654.23,1609.05,1597.77,1653.43,1727.15,1802.63,1824.72,1676.88,1602.96)
legis <- c(1269.26,1308.25,1335.05,1397.02,1427.2,1390.21,1392.83,1414.28,1441.97,1489.50,1492.85,1548.66,1597.81,1645.62,1674.64,1693.65,1645.02,1611.08,1621.29,1692.89,1758.86,1813.02,1826.57,1637.61,1618.87)
year <- c(1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011)

windows(8.5,5)

par(mgp = c(2, 0.5, 0),oma=c(0,0,0,0),mar=c(3.5,3.5,1.5,0.5))


plot(gov, type="o", pch=20,lty=2, axes=FALSE, ann=FALSE)
lines(legis, type="o", pch=20, lty=1,lwd=1)
box()
axis(1, at=1:25, lab=year,cex.axis=0.7)
axis(2, las=1,cex.axis=0.7)
title(xlab="Fiscal Year",cex.lab=0.9)
par(mgp = c(2.5, 0.5, 0))
title(ylab="Per Capita 2000 Dollars",cex.lab=0.9)
legend(0.5,1825,c("Governor's proposed budget","Legislature's enacted budget"),cex=0.8,lty=c(2,1))

